﻿''' <summary>
''' Dieser Roboter wird euer Ende sein.
''' </summary>
''' <remarks></remarks>
Public Class KOIK_486_B7
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "IK-486-B7"
        Armee = Armeen.ML.ToString
        Musik = "IK-486-B7"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 2
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name
        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        NahkampfReichweitenBonus = 1
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.CommanderWars2, CommanderWarsGameModi.AdvanceWarsDC
                Reichweite = 0
            Case Else
                Reichweite = -1
        End Select
        OffensivStaerke = Nothing
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Function GetBaublockade(ByVal Spieler As Integer) As Baublockade
        Return New Baublockade(Baublockade.BauBlockade.Direct, Spieler)
    End Function

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        NahkampfReichweitenBonus = 2
        OffensivStaerke = New FeuerkrafttabelleCustomNahkampf(110, 110, 100)
        If OhneFunktion = False Then
            AnimationEigene("OZZYGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWars Then
            NahkampfReichweitenBonus = 2
            OffensivStaerke = New FeuerkrafttabelleCustomNahkampf(110, 110, 100)
            If OhneFunktion = False Then
                AnimationEigene("OZZYGABE", 2)
            End If
            GabeEingesetzt()
        Else
            NahkampfReichweitenBonus = 3
            OffensivStaerke = New FeuerkrafttabelleCustomNahkampf(120, 120, 100)
            If OhneFunktion = False Then
                AnimationEigene("SPEZIALGABE", 2)
            End If
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub


End Class
Public Class KOBeschreibungIK_486_B7
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "IK-486-B7"
        Fein = "Festungen"
        Nein = "Eroberungen"
        Beschreibung = New String() {"Ein von Kat erfundener Roboter, der durch", "einen Stromschlag mutierte. Als Roboter-", "Ritter verschanzt er sich in Burgen."}
        Stil = New String() {"Seine Nahkampfeinheiten koennen", "Fernangriffe ausfuehren.", "Indirekte Einheiten sind schwaecher."}
        Gabebeschreibung = New String() {"Seine Nahkampftruppen koennen weiter feuern."}
        SpezialgabeBeschreibung = New String() {"Seine Nahkampftruppen koennen noch weiter feuern."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Ploetzlicher Angriff", "Grosser Gegenschlag"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"Direkter Angriff!!!" _
                                  , "Sub Angriff nicht gefunden benutze Verteidigungssub statt dessen." _
                                  , "Meine Festung ist unbesiegbar." _
                                  , "Kampfstellungen eingenommen." _
                                  , "Du bist zu nah an meiner Verteidigung." _
                                  , "Zum Engpass dort."}
        Siegsaetze = New String() {"Nur Narren greifen Festungen an." _
                                , "Roboter sind die Herren der Welt." _
                                , "Sub ""Freuen"" Ausfuehren."}
        Tauschsaetze = New String() {"Wie ihr koennt nicht angreifen?" _
                                    , "Alle Truppen zum ersten Wall."}
        Doppelgabesaetze = New DoppelGabesatz() {}
        Niederlagesaetze = New String() {"Ihr habt meine Festung zerstoert?", _
                                     "Tilt! Tilt! Selbstzerstoerung..."}
    End Sub
End Class
